Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/gauge/cargauge/test.frm

Text File | 1994-12-13 | 6KB | 218 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   Caption         =   "Global Magic, Inc. Car Gauge Test"
   ClientHeight    =   4560
   ClientLeft      =   1245
   ClientTop       =   1590
   ClientWidth     =   7470
   Height          =   4965
   Left            =   1185
   LinkTopic       =   "Form1"
   ScaleHeight     =   4560
   ScaleWidth      =   7470
   Top             =   1245
   Width           =   7590
   Begin CARGAUGE CarGauge1
      BackColor       =   &H00C0C0C0&
      BevelInner      =   1  ' 1 - Raised
      BevelOuter      =   2  ' 2 - Inset
      BevelWidth      =   2
      BorderWidth     =   2
      DisplayMode     =   1  ' 1 - Tachometer 2
      FontSize        =   15
      GaugeValue      =   0
      Height          =   3255
      Left            =   600
      MouseControl    =   0   'False
      TabIndex        =   13
      Top             =   960
      Value           =   0
      Width           =   3495
   End
   Begin CommandButton Command2
      Caption         =   "Help"
      Height          =   495
      Left            =   5880
      TabIndex        =   12
      Top             =   3840
      Width           =   1335
   End
   Begin CommandButton Command1
      Caption         =   "Exit"
      Height          =   495
      Left            =   4320
      TabIndex        =   11
      Top             =   3840
      Width           =   1335
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Gauge Type"
      ForeColor       =   &H00FF0000&
      Height          =   2055
      Left            =   4320
      TabIndex        =   3
      Top             =   960
      Width           =   2895
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Speedometer"
         Height          =   195
         Index           =   5
         Left            =   240
         TabIndex        =   10
         Top             =   1560
         Width           =   2235
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Oil Pressure Gauge"
         Height          =   195
         Index           =   4
         Left            =   240
         TabIndex        =   9
         Top             =   1320
         Width           =   2235
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Temperature Gauge"
         Height          =   195
         Index           =   3
         Left            =   240
         TabIndex        =   8
         Top             =   1080
         Width           =   2235
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Amp Gauge"
         Height          =   195
         Index           =   2
         Left            =   240
         TabIndex        =   7
         Top             =   840
         Width           =   2235
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tachometer"
         Height          =   195
         Index           =   1
         Left            =   240
         TabIndex        =   6
         Top             =   600
         Width           =   2235
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Fuel Level Gauge"
         Height          =   195
         Index           =   0
         Left            =   240
         TabIndex        =   5
         Top             =   360
         Width           =   2235
      End
   End
   Begin CheckBox Check2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Mouse Control"
      Height          =   225
      Left            =   5010
      TabIndex        =   1
      Top             =   300
      Width           =   1755
   End
   Begin VScrollBar VScroll1
      Height          =   3255
      Index           =   0
      LargeChange     =   5
      Left            =   120
      Max             =   250
      TabIndex        =   0
      Top             =   960
      Width           =   285
   End
   Begin Label Label4
      Height          =   495
      Left            =   4320
      TabIndex        =   4
      Top             =   3120
      Width           =   2895
   End
   Begin Label Label1
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Height          =   285
      Left            =   720
      TabIndex        =   2
      Top             =   210
      Width           =   1185
   End
End
Sub CarGauge1_Change (x As Single, Y As Single)

    CarGauge2 = instrument1
    Label4.Caption = Str(CarGauge1.GaugeValue) & " is current value"
End Sub

Sub CarGauge1_Click ()

    label1 = "Click!"

End Sub

Sub Check2_Click ()

    CarGauge1.MouseControl = check2

End Sub

Sub Command1_Click ()
    End
End Sub

Sub Command2_Click ()

      x = Shell("winhelp.exe instrum.hlp", 1)

End Sub

Sub Option1_Click (index As Integer)

    CarGauge1.DisplayMode = index
    Label4 = " "
End Sub

Sub VScroll1_Change (index As Integer)

    Select Case index
        Case 0
            CarGauge1 = vscroll1(index) / 250
        Case 1
            CarGauge1 = vscroll1(index) / 250
    End Select

    Label4.Caption = Str(CarGauge1.GaugeValue) & " is current value"


End Sub

Sub VScroll1_Scroll (index As Integer)

    Select Case index
        Case 0
            CarGauge1 = vscroll1(index) / 250
        Case 1
            CarGauge1 = vscroll1(index) / 250
    End Select

    Label4.Caption = Str(CarGauge1.GaugeValue) & " is current value"


End Sub